home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc1_2_x / smrtslds.sit / SmartSlides 1.1 Demo / card_2994.txt < prev    next >
Text File  |  1990-06-12  |  6KB  |  314 lines
  1. -- card: 2994 from stack: in.1 Demo
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2635
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0000
  11. -- rect: left=0 top=19 right=50 bottom=12
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: Delay
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   if the optionKey is down then GiveHelp "Delay┬á"
  23.   else pass mouseUp
  24. end mouseUp
  25.  
  26. on mousedown
  27.   if the optionKey is up then pass mouseDown
  28. end mouseDown
  29.  
  30.  
  31. -- part 2 (button)
  32. -- low flags: 00
  33. -- high flags: 0000
  34. -- rect: left=0 top=55 right=86 bottom=12
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 1
  38. -- font id: 0
  39. -- text size: 12
  40. -- style flags: 0
  41. -- line height: 16
  42. -- part name: Beep
  43. ----- HyperTalk script -----
  44. on mouseUp
  45.   if the optionKey is down then GiveHelp "Beep┬á"
  46.   else pass mouseUp
  47. end mouseUp
  48.  
  49. on mousedown
  50.   if the optionKey is up then pass mouseDown
  51. end mouseDown
  52.  
  53.  
  54. -- part 3 (button)
  55. -- low flags: 00
  56. -- high flags: 0000
  57. -- rect: left=0 top=89 right=120 bottom=12
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: LockScreen
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   if the optionKey is down then GiveHelp "LockScreen┬á"
  69.   else pass mouseUp
  70. end mouseUp
  71.  
  72. on mousedown
  73.   if the optionKey is up then pass mouseDown
  74. end mouseDown
  75.  
  76.  
  77. -- part 4 (button)
  78. -- low flags: 00
  79. -- high flags: 0000
  80. -- rect: left=0 top=123 right=154 bottom=12
  81. -- title width / last selected line: 0
  82. -- icon id / first selected line: 0 / 0
  83. -- text alignment: 1
  84. -- font id: 0
  85. -- text size: 12
  86. -- style flags: 0
  87. -- line height: 16
  88. -- part name: Opener
  89. ----- HyperTalk script -----
  90. on mouseUp
  91.   if the optionKey is down then GiveHelp "On OpenCard┬á"
  92.   else pass mouseUp
  93. end mouseUp
  94.  
  95. on mousedown
  96.   if the optionKey is up then pass mouseDown
  97. end mouseDown
  98.  
  99.  
  100. -- part 5 (field)
  101. -- low flags: 01
  102. -- high flags: 0007
  103. -- rect: left=39 top=55 right=258 bottom=477
  104. -- title width / last selected line: 0
  105. -- icon id / first selected line: 0 / 0
  106. -- text alignment: 1
  107. -- font id: 512
  108. -- text size: 48
  109. -- style flags: 0
  110. -- line height: 64
  111. -- part name: Autoscroller 5
  112. ----- HyperTalk script -----
  113. on autoScroll
  114.   put word 2 of the short name of me into scrollrate
  115.   set the scroll of me to 0
  116.   put the number of lines of me into myLength
  117.   put the rect of me into myrect
  118.   put the textheight of me into lineHeight
  119.   put 0 into myscroll
  120.   put (item 4 of myrect) - (item 2 of myrect) into mybottom
  121.   put 2 + (myLength*lineHeight) - myBottom into myBottom
  122.   repeat while myscroll < myBottom
  123.     add scrollrate to myscroll
  124.     set the scroll of me to myscroll
  125.   end repeat
  126. end autoScroll
  127.  
  128.  
  129. -- part 6 (button)
  130. -- low flags: 00
  131. -- high flags: 0001
  132. -- rect: left=461 top=50 right=271 bottom=484
  133. -- title width / last selected line: 0
  134. -- icon id / first selected line: 0 / 0
  135. -- text alignment: 1
  136. -- font id: 0
  137. -- text size: 12
  138. -- style flags: 0
  139. -- line height: 16
  140. -- part name: Inert
  141.  
  142.  
  143. -- part 7 (button)
  144. -- low flags: 00
  145. -- high flags: 4000
  146. -- rect: left=40 top=56 right=257 bottom=460
  147. -- title width / last selected line: 0
  148. -- icon id / first selected line: 0 / 0
  149. -- text alignment: 1
  150. -- font id: 0
  151. -- text size: 12
  152. -- style flags: 0
  153. -- line height: 16
  154. -- part name: Inverter
  155.  
  156.  
  157. -- part 8 (field)
  158. -- low flags: 81
  159. -- high flags: 2004
  160. -- rect: left=249 top=18 right=281 bottom=481
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 0
  164. -- font id: 3
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: PopUp 9
  169.  
  170.  
  171. -- part 10 (field)
  172. -- low flags: 01
  173. -- high flags: 2002
  174. -- rect: left=340 top=279 right=302 bottom=481
  175. -- title width / last selected line: 0
  176. -- icon id / first selected line: 0 / 0
  177. -- text alignment: 1
  178. -- font id: 0
  179. -- text size: 12
  180. -- style flags: 0
  181. -- line height: 16
  182. -- part name: Rectangle
  183.  
  184.  
  185. -- part 9 (button)
  186. -- low flags: 00
  187. -- high flags: 0000
  188. -- rect: left=340 top=279 right=302 bottom=481
  189. -- title width / last selected line: 0
  190. -- icon id / first selected line: 0 / 0
  191. -- text alignment: 1
  192. -- font id: 0
  193. -- text size: 12
  194. -- style flags: 0
  195. -- line height: 16
  196. -- part name: PopItUp
  197. ----- HyperTalk script -----
  198. on mouseUp
  199.   if the optionKey is down then
  200.     GiveHelp "PopUp┬á"
  201.   else pass mouseUp
  202. end mouseUp
  203.  
  204. on mousedown
  205.   if the optionKey is up then pass mouseDown
  206. end mouseDown
  207.  
  208.  
  209. -- part contents for background part 283
  210. ----- text -----
  211. 1
  212.  
  213. -- part contents for background part 33
  214. ----- text -----
  215. scroll left slowly to card
  216. scroll right slowly to card
  217.  
  218. -- part contents for background part 294
  219. ----- text -----
  220. SmartSlides          Philosophy Department
  221. version 1.1              Syracuse University┬á
  222. ┬⌐ June 5, 1990           Syracuse, NY  13244┬á┬á┬á
  223. Mark A. Brown               (315) 443-5818┬á┬á┬á┬á┬á
  224.  
  225. SmartSlides, its name, design and scripts, are all copyrighted.
  226.  
  227. THIS STACK IS SHAREWARE. 
  228. You may freely copy it and give away copies,
  229. as long as you preserve its copyright and shareware notices.
  230. YOU MAY NOT SELL IT.
  231. If you use this to give a lecture or presentation,
  232. or as the base for another stack for similar purposes,
  233. please send $15 to me at the above address
  234. the first time you use it.
  235. Include your name & address and I'll send you a copy of the manual.
  236. XCMDs and XFCNs are freeware from Nine To Five Software.
  237. My thanks to them for making extra menus possible.
  238.  
  239.  
  240. -- part contents for card part 5
  241. ----- text -----
  242. Welcome
  243. to
  244. SmartSlides
  245. ΓÇö______
  246. created by
  247. Mark A. Brown
  248.  
  249. -- part contents for background part 142
  250. ----- text -----
  251.  
  252.  
  253.  
  254. Opener
  255. AutoScroller 2
  256.  
  257. Inverter
  258. PopUp 9
  259. PopItUp
  260.  
  261.  
  262.  
  263. -- part contents for background part 100
  264. ----- text -----
  265.  
  266.  
  267.  
  268. 1,4 5
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276.  
  277. -- part contents for background part 125
  278. ----- text -----
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  
  287. 8
  288.  
  289. -- part contents for card part 10
  290. ----- text -----
  291. About this slideΓǪ
  292.  
  293. -- part contents for card part 8
  294. ----- text -----
  295. STEPS IN CREATING THIS SLIDE:
  296. ΓÇó Create Autoscrolling field
  297. ΓÇó Enter text
  298. ΓÇó Create chain from
  299.    On OpenCard button to
  300.    AutoScrolling field
  301. ΓÇó Create Inverter button
  302. ΓÇó Resize button to cover field
  303. ΓÇó Create Rectangle field
  304. ΓÇó Enter text
  305. ΓÇó Create PopUp field
  306. ΓÇó Enter this text
  307. ΓÇó Resize PopUp's button to
  308.    cover Rectangle field
  309. ΓÇó Reset Slide
  310. ΓÇó Make next slide
  311.  
  312. -- part contents for background part 306
  313. ----- text -----
  314. true